home *** CD-ROM | disk | FTP | other *** search
/ Advanced Placement Companion: Precalculus / Advanced Placement Companion: Precalculus.iso / pc / M_DIR / 12-08044.DIR / 00001.ls next >
Encoding:
Text File  |  1998-04-15  |  1.2 KB  |  57 lines
  1. on specA sNum, graphicNum
  2.   setCursor(sNum)
  3.   if rollOver(sNum) = 1 then
  4.     set the visible of sprite graphicNum to 1
  5.   else
  6.     set the visible of sprite graphicNum to 0
  7.   end if
  8. end
  9.  
  10. on setCursor sNum
  11.   set the cursor of sprite sNum to [cast "Hand Cursor", cast "hand cursor alpha"]
  12. end
  13.  
  14. on specC sNum, graphicNum
  15.   if rollOver(sNum) = 1 then
  16.     set the visible of sprite graphicNum to 1
  17.   else
  18.     set the visible of sprite graphicNum to 0
  19.   end if
  20. end
  21.  
  22. on specCloc sNum, location
  23.   if rollOver(sNum) = 1 then
  24.     go(location)
  25.   end if
  26. end
  27.  
  28. on SpecD sNum, location
  29.   set thisOne to the clickOn
  30.   set the locH of sprite thisOne to the locH of sprite thisOne + 2
  31.   set the locV of sprite thisOne to the locV of sprite thisOne + 2
  32.   updateStage()
  33.   puppetSound("click")
  34.   updateStage()
  35.   repeat while soundBusy(1)
  36.   end repeat
  37.   set the locH of sprite thisOne to the locH of sprite thisOne - 2
  38.   set the locV of sprite thisOne to the locV of sprite thisOne - 2
  39.   updateStage()
  40.   if the clickOn = sNum then
  41.     go(location)
  42.   else
  43.   end if
  44. end
  45.  
  46. on SpecE location
  47.   puppetSound("click")
  48.   go(location)
  49. end
  50.  
  51. on balk n
  52.   set endTime to the ticks
  53.   set endTime to endTime + n
  54.   repeat while the ticks < endTime
  55.   end repeat
  56. end
  57.